home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / cnet / ansi_pack.lha / NewDoor < prev    next >
Encoding:
Text File  |  1996-12-04  |  1.2 KB  |  23 lines
  1. /**************************************************************************\
  2.       $VER: Program Name, v0.00 (DD-MMM-YY) by Handle of BBS Name!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. /*ver=word(sourceline(2),?);a=word(sourceline(2),?);parse var a "("vdate")"*/
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  8.  
  9.  
  10.  
  11. exit
  12. CHECK:;if ARG() & ARG(1)~='###PANIC' then return ARG(1)
  13.   getcarrier;if result='TRUE' then if ARG() then return ARG(1);else return
  14.   /* Place any "cleanup" or "reenable" code here, before exiting! */
  15.   logentry 'Lost Carrier!!';bufferflush;exit
  16. SYNTAX:;ERROR:;IOERR:;e1='n1 Error: 'rc' ('errortext(rc)')'
  17.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960
  18.   b=result;c='"'a||b', 'ver'"';e2=e2' 'c;tr e1;tr e2;logentry e1
  19.   logentry e2;e=translate(sourceline(sigl),"\{","");do while e~=''
  20.   e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush
  21. /**************************************************************************\
  22. \****************************************** BBS Name (AAA)/PPP-SSSS *******/
  23.